home *** CD-ROM | disk | FTP | other *** search
/ Business Shareware / Business Shareware.iso / start / wordproc / me_cd25 / switchb.mut < prev    next >
Encoding:
Text File  |  1992-11-09  |  829 b   |  32 lines
  1.   ;; switchb.mut : a new switch-to-buffer that remembers the last switched
  2.   ;;   to buffer so you can use that as a default.
  3.   ;; C Durland    Public Domain
  4.  
  5. (include me2.h)
  6.  
  7. (int last-selected-buffer)
  8.  
  9. (defun
  10.   switch-buffer
  11.   {
  12.     (int n)
  13.     (string name)
  14.  
  15.     (if (== ""                ;; response of "" means use default
  16.         (name (complete CC_BUF 
  17.        (concat "Use buffer ["
  18.         (buffer-name last-selected-buffer) "]: "))))
  19.       {            ;; default: toggle between current and old buffer
  20.     (n last-selected-buffer)
  21.     (last-selected-buffer (current-buffer))
  22.     (current-buffer n)
  23.       }
  24.       {                ;; switch to a new buffer, remember old one
  25.     (last-selected-buffer (current-buffer))
  26. ;;???????????    (switch-to-buffer name)
  27.     (current-buffer (create-buffer name))
  28.       })
  29.   }
  30.   MAIN { (last-selected-buffer 0) }
  31. )
  32.